home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / rshow / install / workbench2.1+ / install.installer < prev    next >
Encoding:
Text File  |  1995-01-12  |  8.4 KB  |  293 lines
  1. ; $VER: Install.Installer 37.1 (28.7.94)
  2. ;
  3. ; This script installs the RShow Retina image viewer and its preferences
  4. ; editor to your harddisk. Use Commodore's Installer utility to execute.
  5. ;
  6.  
  7. ; Default source- and destination files
  8.  
  9. (set prefs-source    "//prefs/RShowPrefs")
  10. (set prefs-dest        "SYS:Prefs/")
  11. (set prefscat-source    "Locale/Catalogs/")
  12. (set prefscat-dest    "LOCALE:Catalogs/")
  13. (set rshow-source    "//RShow")
  14. (set rshow-dest        "SYS:WBStartup/")
  15. (set lib-source        "//libs/guifront.library")
  16. (set lib-dest        "LIBS:")
  17. (set lprefs-source    "//prefs/GUIFront")
  18. (set lprefs-dest    "SYS:Prefs/")
  19.  
  20. ;***************************************************************************
  21. ; English strings
  22. ;
  23. ; Translation: Native
  24. ;***************************************************************************
  25.  
  26. (set default_lang 1)
  27. (set oldlevel @user-level)
  28.  
  29. (set wrongkickstart    "RShow requires at least Kickstart 2.04")
  30. (set lib-where        (cat "In which directory do you want to install "
  31.                  "guifront.library?"))
  32. (set lib-where-help    (cat "This library is used by the RShow preferences editor "
  33.                  "to create and maintain its graphic user interface. "
  34.                  "It will not run without it.\n\n"
  35.                  @askdir-help))
  36. (set prefs-ask        (cat "Do you wish to install the RShow "
  37.                  "preferences editor?"))
  38. (set lprefs-ask        (cat "Do you wish to install the GUIFront "
  39.                  "preferences editor?"))
  40. (set lprefs-ask-help    (cat "The GUIFront preferences editor allows you to customize "
  41.                  "the visual appearance of GUIFront applications, such "
  42.                  "as RShowPrefs. It is not strictly necessary to install "
  43.                  "in order to use RShow or RShowPrefs.\n\n"
  44.                  @askbool-help))
  45. (set lprefs-where    (cat "In which directory do you want to install the "
  46.                  "GUIFront preferences editor?"))
  47. (set prefs-where    (cat "In which directory do you want to install the "
  48.                  "RShow preferences editor?"))
  49. (set prefs-where-help    (cat "The preferences editor allows you to "
  50.                  "control the various aspects of RShow. It is not "
  51.                  "strictly necessary to install, but it is greatly "
  52.                  "recommended in order to use RShow fully.\n\n"
  53.                  @askdir-help))
  54. (set rshow-where    (cat "In which directory do you want to install "
  55.                  "the RShow Retina image viewer?"))
  56. (set rshow-where-help    (cat "This is the program which allows you to view "
  57.                  "images on your Retina card.\n\n"
  58.                  @askdir-help))
  59. (set which-lang        "Which languages should be installed?")
  60. (set which-lang-help    (cat "The Amiga can be operated in many different "
  61.                  "languages. If you want the RShow preferences "
  62.                  "editor and image viewer to use the same language as your "
  63.                  "Amiga Workbench, then a catalog file must be copied "
  64.                  "to your LOCALE: directory for each language supported.\n\n"
  65.                  "To reduce the amount of space consumed by the "
  66.                  "language files, you can select to have only the "
  67.                  "files of specific languages copied.\n\n"
  68.                  "Please check the boxes of the languages you "
  69.                  "wish to have available on your system.\n\n"
  70.                  @askoptions-help))
  71. (set copying-lib    "Copying guifront.library to ")
  72. (set copying-lprefs    "Copying GUIFront preferences editor to ")
  73. (set copying-rshow    "Copying RShow to ")
  74. (set copying-prefs    "Copying RShow preferences editor to ")
  75.  
  76. ;***************************************************************************
  77. ; Danish strings
  78. ;
  79. ; Translation: Michael Berg
  80. ; Date: 12.6.94
  81. ;***************************************************************************
  82.  
  83. (if (= @language "dansk")
  84. (
  85. (set default_lang 2)
  86.  
  87. (set wrongkickstart    "RShow kræver mindst Kickstart 2.04")
  88. (set lib-where        (cat "I hvilket directory ønsker du at installere "
  89.                  "guifront.library?"))
  90. (set lib-where-help    (cat "Dette library benyttes af RShow præferenceeditoren til "
  91.                  "at oprette og vedligeholde sit grafiske brugerinterface. "
  92.                  "Editoren kan ikke afvikles uden dette library.\n\n"
  93.                  @askdir-help))
  94. (set prefs-ask        (cat "Ønsker du at installere RShow "
  95.                  "præferenceeditoren?"))
  96. (set lprefs-ask        (cat "Ønsker du at installere GUIFront præferenceeditoren?"))
  97. (set lprefs-ask-help    (cat "GUIFront præferenceeditoren tillader dig at personliggøre "
  98.                  "den visuelle fremtoning af GUIFront applikationer såsom "
  99.                  "RShowPrefs. Det er ikke strengt nødvendigt at installere "
  100.                  "denne editor for at kunne benytte RShow og RShowPrefs.\n\n"
  101.                  @askbool-help))
  102. (set lprefs-where    (cat "I hvilket directory ønsker du at installere "
  103.                  "GUIFront præferenceeditoren?"))
  104. (set prefs-where    (cat "I hvilket directory ønsker du at installere "
  105.                  "RShow's præferenceeditor?"))
  106. (set prefs-where-help    (cat "Præference editoren tillader dig at kontrollere "
  107.                  "forskellige aspekter af RShow. Det er ikke strengt "
  108.                  "nødvendigt at installere den, men det anbefales kraftigt "
  109.                  "for at udnytte RShow fuldt ud.\n\n"
  110.                  @askdir-help))
  111. (set rshow-where    (cat "I hvilket directory ønsker du at installere "
  112.                  "RShow Retina billedfremviseren?"))
  113. (set rshow-where-help    (cat "Det er dette program som tillader dig at vise "
  114.                  "billeder på dit Retinakort.\n\n"
  115.                  @askdir-help))
  116. (set which-lang        "Hvilke sprog ønskes installeret?")
  117. (set which-lang-help    (cat "Amigaen kan benyttes i mange forskellige sprog. "
  118.                  "Hvis du ønsker at RShow præferenceeditoren samt billedfremviser "
  119.                  "skal benytte samme sprog "
  120.                  "som din Amiga Workbench, så må der kopieres en "
  121.                  "katalogfil til dit LOCALE: directory for hvert enkelt "
  122.                  "understøttet sprog. For at reducere sprogfilernes "
  123.                  "pladsforbrug kan du vælge kun at installere det eller "
  124.                  "de sprog som du ønsker skal være tilgængelige på "
  125.                  "dit system. Afkryds ud for hvert enkelt sprog du ønsker "
  126.                  "at installere.\n\n"
  127.                  @askoptions-help))
  128. (set copying-lib    "Kopierer guifront.library til ")
  129. (set copying-lprefs    "Kopierer GUIFront præferenceeditoren til ")
  130. (set copying-rshow    "Kopierer RShow til ")
  131. (set copying-prefs    "Kopierer RShow præferenceeditoren til ")
  132. ))
  133.  
  134. ;***************************************************************************
  135. ; Make sure we are running under a 2.04 ROM
  136. ;***************************************************************************
  137.  
  138. (complete 0)
  139.  
  140. (if (< (/ (getversion) 65536) 37)
  141. (
  142.     (abort wrongkickstart)
  143. ))
  144.  
  145. (complete 5)
  146.  
  147. ; Ask user where he wants the RShow preferences editor
  148. ;
  149. (if
  150.     (askbool
  151.         (prompt prefs-ask)
  152.         (help prefs-where-help)
  153.     )
  154.         (
  155.             (set prefs-dest
  156.                 (askdir
  157.                     (prompt prefs-where)
  158.                     (help prefs-where-help)
  159.                     (default prefs-dest)
  160.                 )
  161.             )
  162.             (copyfiles
  163.                 (prompt (cat copying-prefs prefs-dest "..."))
  164.                 (source prefs-source)
  165.                 (dest prefs-dest)
  166.                 (help @copyfiles-help)
  167.                 (infos)
  168.             )
  169.  
  170.             ; Attempt to install GUIFront.library.
  171.             ; The preferences editor needs it.
  172.             ;
  173.  
  174.             (set lib-dest
  175.                 (askdir
  176.                     (prompt lib-where)
  177.                     (help lib-where-help)
  178.                     (default lib-dest)
  179.                 )
  180.             )
  181.  
  182.             ; Now copy it over
  183.             ;
  184.  
  185.             (copylib
  186.                 (prompt (cat copying-lib lib-dest "..."))
  187.                 (help @copylib-help)
  188.                 (source lib-source)
  189.                 (dest lib-dest)
  190.                 (confirm)
  191.             )
  192.  
  193.             ; Ask user if he wants the GUIFront preferences editor
  194.             ; as well
  195.             ;
  196.  
  197.             (if
  198.                 (askbool
  199.                     (prompt lprefs-ask)
  200.                     (help lprefs-ask-help)
  201.                 )
  202.                 (
  203.                     (set lprefs-dest
  204.                         (askdir
  205.                             (prompt lprefs-where)
  206.                             (help lprefs-ask-help)
  207.                             (default lprefs-dest)
  208.                         )
  209.                     )
  210.                     (copyfiles
  211.                         (prompt (cat copying-lprefs lprefs-dest "..."))
  212.                         (source lprefs-source)
  213.                         (dest lprefs-dest)
  214.                         (help @copyfiles-help)
  215.                         (infos)
  216.                     )
  217.                 )
  218.             )
  219.         )
  220. )
  221.  
  222. (complete 60)
  223.  
  224. ; Ask user where he wants the RShow program itself
  225. ;
  226. (set rshow-dest
  227.     (askdir
  228.         (prompt rshow-where)
  229.         (help rshow-where-help)
  230.         (default rshow-dest)
  231.     )
  232. )
  233.  
  234. ; Copy it over
  235. ;
  236. (copyfiles
  237.     (prompt (cat copying-rshow rshow-dest "..."))
  238.     (source rshow-source)
  239.     (dest rshow-dest)
  240.     (help @copyfiles-help)
  241.     (infos)
  242. )
  243.  
  244. (complete 80)
  245.  
  246. ; Attempt to install catalog files for RShow and its preferences editor
  247. ;
  248. (if (exists "LOCALE:")
  249. (
  250.     (set lang
  251.         (askoptions
  252.             (prompt which-lang)
  253.             (help which-lang-help)
  254.             (choices
  255.                 "English"
  256.                 "Dansk"
  257.             )
  258.             (default default_lang)
  259.         )
  260.     )
  261.     (user oldlevel)
  262.  
  263.     (set n 0)
  264.  
  265.     (while
  266.         (set language
  267.             (select n
  268.                 "English"
  269.                 "Dansk"
  270.                 ""
  271.             )
  272.         )
  273.     (
  274.         (if (IN lang n)
  275.         (
  276.             (if (<> 0 n)
  277.             (
  278.                 (makedir (cat prefscat-dest language))
  279.  
  280.                 (copyfiles
  281.                     (source (cat prefscat-source language))
  282.                     (dest (cat prefscat-dest language))
  283.                     (all)
  284.                 )
  285.             ))
  286.         ))
  287.  
  288.         (set n (+ n 1))
  289.     ))
  290. ))
  291.  
  292. (complete 100)
  293.